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100 DESCRIPTIUN : 
i 1. ABSTRACT 

104. THIS TEST IS TO BE USED AS AN EXERCISER FOR THE POPL1/4S MUL 
ie BND DIV INSTRUCTIONS. IT TESTS THE DIVIDE AND MULTIPLY WITH 
: RANDON ; 

108 | 

109 2. REQUIREMENTS 

iit 

ite 2.1 EQUIPMENT 

114 PDP11/45 STANDARD COMPUTER 

ll - 

i? 2.2 _ ST 

119 PROGRAN’ STORAGE - THE ROUTINES USE MEMORY 0 - 17776 

1 

ige we 2.3 PRELIMINARY PROGRAMS 

12 MAINDEC-11-DCKBI AND DCKBJ 

1 

iz? 3 LOADING PROCEDURE 

1 USE STANDARD PROCEDURE FOR ABS TAPES. 


4, _—_sSTARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
SEE 5.1.1 (ALL DOWN FOR WORST CASE TESTING) 


4.2 STARTING 
THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 
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| 4.3 PROGRAN AND/OR OPERATOR ACTION 
147 NTO MEMORY USING ABS LOADER. 
i fee a on 
i ban BRSses SHOULD ALAS CE RUN; 
i Pie else Ahan iia ate wept tee 
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DESCRIPTION 
S. OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS 
ar SA SWITCHES WILL TEST ALL FUNCTIONS OF 
aio biv Atte PRINT ON ERRORS AND CONTINUE IN TEST. 
(BELL WILL RING AT COMPLETION OF OF Si2 PASSES) 
5.1.1 SWITCH SETTINGS ARE: 
oe, HALT te 
Sul hee 
i” @ 8 esens 
i? @ E aease TRAPPING 
b= | ® hee Mi kt TION LOOP 
6200 Bene 12 PASSES 
5.2 SUBROUTINE ABSTRACTS 
5.2.1 ety 
HIS. SUBROUTI 
Bate ie NORTE Tals 
EON ap on I ese sity etek Looped 
Yee DETERMINE. TRE Péugrest 
5.2.2 HLT 
THI INE PRINTS OUT AN MESSAGE (SEE 6.1.) TO 
INHIBI aah But ouch ee 1. 
5.2.3 
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DESCRIPTION 


5.2.4 


6.1 





TRAPCATCHER 


Ba ects SIRE 1 AREY RTS aS 
TS WILL HALT AT THE VECTOR ¢ e. 


ERRORS 
Ftc Wir, ea cle tie Beal HS 

0 it, PLACE SHIS UP TO HAL , HIT INUE 
WITH SHIM ON TEST, AND SWi3 UP TO DELETE 
PRINT 

ERROR PRINTOUT 


THE FORMAT IS AS FOLLOWS: 

DIV ERROR: 040000 000000 ” 100000 
Pesiee 

ERRORS OCCURED 75 TIMES OUT OF 400 
PEREORMED IWEN THE FAILURE Uns DETECTED. Tre“ SOFTIARE® 
Tie feo Gy ie Wnrouree The Lact Line REFLECTS THE 


NUMBER TRIES. THIS LINE WILL 
ONLY BE IF THE ITERA PTERATIONS BRE ON. 

ERROR RECOVERY 

RESTART AT 200 





RESTRICTIONS 
NONE 


MISCELLANEOUS 


EXECUTION TIME 
A BELL WILL RING WITHIN 1 MINUTE WITH ALL SWITCHES DOWN. 
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eg DESCRIPTION 
25 
262 8.2 STACK POINTER 
A STACK IS INITALLY SET TO S09 
ers 8.3 POWER FAIL 

TO START THE TEST THEN UP AT 
ere Any Fife® THERE SHBULD BE-RO ERROR TYPEOUTS 
Brg 5 
280 
2 Layee are 

IVI 
2e4 PLI is fie avis BOTH 
ee phi tag aa 
oe I TO THE ORIGINAL 
233 : RANDOM me Tig GENERATED AND 
SS ' NT ORIGI NUE RS AND pi 3 
TIPLY v : oe 256 T UP ; 

535 tL ONLY Sore ohi¥ WILL GnusE is, That Sou 
ex ARE IN 10 BE LOOPED UPON. 





HO1 
RRINDED-11-DCOKA-C MUL ~ DIV RANDOM EXERCISER MACYIL 27(732) 21-JUN-76 13:39 PAGE 7 


TI Mal 
IGHT 1 
PROGRAM ie BOB BRAIN 


-11-DCQKA-C_ MUL - DIV RANDOM EXERCISER 
» 1976 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


8 
be 
“£4 


295 
2% 
: ; SWI TINGS 
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a 14 LOO iM aero 
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: .20 ;TRAP CATCHER AT 0 - 776 
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R96 Pan. TIMES OUT IN AUTO MODE 


LONUM FOR RANDOM 
Y MULTIPLIER (SOFTWARE ) 


HINUM FOR RANDOM 
Het AREA 
PLIER (SOFTWARE ) 
TIPLICAN (SOFTWARE ) 


sSET PUSH DOWN LIST POINTER 
WE IN AUTOMATIC MODE? 
ON 
BY MULTIPLICAN (SOFTWARE) 


- e 
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‘s 3 ¥ oi 





= DIV RANDOM EXERCISER MACY11 27(732) 21-JUN-76 


me eee oe = 





CALCULATE ANSWERS 





Pe — 


eomaatz eon ZRGRR RSF FORIERRE <n 


rd oat og od OH od eG OE OS AG OG OD ES OG oF OE aD AG oh ed nh eg ey ed a eG Ome 


SEHSHSHSEE SEHSHEEE BEGG SASGEREEEEdE SeBeHeHeasaEeE 
PSS aA PE SSS SSS hi LS ss Sa 


~DCQKA-C 
101000 
ater 





SUR ae 


Fs 
g 
oO 
i 
- 
-_ 
§ 
KO 


SELL LCLLLO 
Sas Pee Bas Gos Ban pe ne eas fins Bo 
WONMUN£ WHO 


GESAEFESAASIBURATERO SEVEN EON Os 


ie 
: 


CESSES 


saaee & 





JO 
DIV RANOOM EXERCISER MACYI1 27(732) 


21-JUN-76 13:39 PAGE 9 





SRC LONUM X HINUN 
ee See a et ee 
001254 iii sienna 
eee APooRy onze HOV «SARE, RY SRESTORE POINTER 
001563 a1e708 003706 MOV (4), “MQX PRECTORE. MQ 
901266 012467 003700 MOV (4) 4? AEX IRESTORE AC 
001272 O11467 002644 mov (4), SRL TRESTORE SRI 
On127& O16700 onaay MOV _—_LONUM, .AC SLOAD MULTIPLIER (HARDWARE) 
O01 Grobe? o0s342 a HIN, AC SCOAD MULTIPLICAN AND MULTIPLY 
ii 000626 
+ 1 ’ 
mise ae 003652 ef -AGK, .AC ;CHECK HIGH ORDER PRODUCT 
DD1 HL . ’ 
001 701 003644 CHP MOK, . MO SCHECK LOW ORDER PRODUCT 
I : 1401 oe #4. sSKIP IF OK 
01 002602 000640 CHPB SRI, TEMP “CHECK STATUS REGISTER 
BS etch i eM 
2 RLEELEBESLSHLAE KSLA LLL ELE EAR EK AELERER ERE 
TEST 2 HINUM X LONUM 
001 ; et ELSESSRE KREEKLL FESR RRKELE KER ELERER 
c ec. or 
t HOV Cue TAeX «=—sERERTORE fe 
001364 MOV (4), SA PRESTORE SRI 
001370 nov HIN, .AC sLOAD MULTIPLIER (HARDWARE) 
z He LON MULTIPLY 
1 NOP . 
Bae CMP CRC, .AC sCHECK HIGH ORDER PRODUCT 
Bi eid 
rot CHP .MOX, .M@ ;CHECK LOM ORDER PRODUCT 
i Bea c+ SSKIP IF OK 
4 o00s46 CHPB’ SRI, TEMP SCHECK STATUS REGISTER 
Bi +44 > SKIP iF GO0D 








| Gat BS ae Bene es nt Oe ee 


sesuess 


HLT+2 
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/ LONUM 


2 moe Oo ceepeserececmmere mere: 
$ 4 
3 #H1HEHHHEHE HEIR HHH HHH HHH HHH HEHE 


Restore ae 
PO 


;REST 
sIN INTER 


nest N06 
sREST SR1 


eee ee ee 
=- ++ 
= 
2 
4 
S8 
° 


SESRREHO= SER SRACO NOSIS 


3 
oO 


Seen GRes : 


QUOT 
NOU £WMeHO 


en ee 


i 
| 


001470 071067 o021S2 DIV dc sDIVIDE BY MULTIPLIER (HARDWARE) 
001474 767 OO044O JSR Pg FL 
Biche | Geezo a if 
001 700 003464 MP RG, .AC sCHECK REMAINDER 
1 egal BEQ +4 *SKIP IF OK 
t t 003456 C .MQX, .MQ ;CHECK QUOTENT 
i 16 M0] BEQ +4 SKIP IF OK 
1 002414 OOO4S2 .SR1: CMPB SRI, TEMP TATUS REGISTER 
es 1 uA +4 OP IF OK 
1532 104401 HLT+1 


a 
gessssss 


5 ae te ieee see ae 
. / 


: i E.; . EA... eee ee 

001534 04000 SCOPE 
001 12704 003666 MOV SAREA, RY s RESTORE POINTER 

iS42 Ol MOV (4)+, MQ sREST ORE Hg 

Ea 1 MOV (4)4" AC *REST 

1 000010 ADD #10, 84 s INCREMENT POI 
01 o1 7 boat’ MOV (4)4, .ACK iREST AC 
001 12467 12 MOV (4)¢ “RESTORE MQ 
001 011467 002354 MOV (4), SRI RESTORE SR1 

1 1067 V H AC sDIVIDE BY MULTIPLICAN (HARDWARE) 
pptess Baubes Spas OBR Oi ; 
rite eid 003366 ENP 3h AC CHECK REMAINDER 
ate arty BEQ “+4 °° >SKIP IF OK 
aa Gee7Ot 003360 CMP .MQX, .MQ sCHECK QUOTENT 
Oo1b14 : 1 BEQ +4 SKIP IF OK 
ate 12767 002316 000354 .SR2: CMPB SRI, TEMP ;CHECK STATUS REGISTER 
001626 004 1 BEQ +4 SKIP IF OK 

e 
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SRC TY T / HINUM 

001632 SCOPE sCALCULATE NEW RANDOM DIVISOR 

1634 O16 002024 MOV LONUM, AREA GET MQ 

1 16767 MOV HINUM,AREAt2 GET _AC 

r 16701 i HOV LONUR, . LOAD MQ ( SOFTHARE 

i 1534 JSR NEAAGOH tet 1 RANDOM 
601 16767 1736 MOV LOAM, ARER+ :GET DIVISOR | on 
tt e 
001 nro Mee Po bItt tH OV TOE 
BITRE BIDE? NOV CRO’ ROX 
tt 7 2 
Boizas Btotes BOTS. ooza HOV © @LOCKCAD =—s«S FUDGE LAD 

5 LHRKAAKEAELEREREE LE LLEE RELERSSEERASRESESAKEREELERS ELSE SAE KEMBSSRERHRLARE SRE 


;TEST S LONUM HINUM / NEW LONUM 
jSebbeteeenanuneseen y Yonenoener "a7 yornnmemcrsecscmmenmermmmamntans 


001720 016701 001742 LOcx: 


POE? BOI Tae nov AREAS, “Re Reel 
Ss Fo 





+ 
£31 


DCOKAG SRG Tt T BIT TEND Loo 


—— RBS 


SES Pl 





Re 
om 
NO 


+ 
+ 


2RBRIRBES 
Bs 








RANDOM EXERCISER 
ING 


175562 


TEMP: 
. TRPB: 
V RANDOM EXERCISER 
004000 177570 .EMT: 
176556 


BEQ , 
HLT+7 
chp NOX, .M 
HLT+7 
CHP SR1, TEMP 
AE f+ 
MACY11 27(732) 
SCOPE 
StF stile, Sur 
BNE 2 
COM TRPB 
Be Bat 
RTT 
MOV #RTIX, -(6) 
AOD «aL CNT 
MOV ait JeOISPLAY 
BIT 8177, CNT 
bor 
BIT #2000, SHR 
oh Mae 
Beg at 
RESET 
: JSR 7, (0) 
NOP 
NOP 
NOP 
IMP =—s«GO 
MOVE § 98177776, TEMP 
BIC #177760, TEMP 
IT : TEMP 
#2, (6) 
RTS PC 
Ris = po 
0 
0 
MACY11 27(732) 
a a 


MAINDER WRONG 
CHECK QUOTIENT 


; QUOTIENT WRONG 
;CHECK STATUS 
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;CLEAR _T' TRAP 

*RUN WITH TRT? *SW12% 
;SET T TRAP 

; JUMP TO START OF TEST 


;JUMP TO START OF TEST 
;COUNT NUMBER OF PASSES 
;CHECK FOR MULTIPLES OF 200 
;RERUN 


;TYPE A BELL 


_;GET MONITOR ADDRESS (IF ANY) 


;CALL THE MONITUR 


; RERUN 


;GET THE PS BITS 
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;KILL ITERATIONS 


;BRANCH IF FIRST 


od2e24 


ys 


902272 


S eee IRR COEeS 
Boe 


tAtHPRINTS ;AND tS eee ZERO’S 
i es ee eas 
595 pease 100001 
596 000000 
597 002332 ek 001316 176434 Aue 
3 tee fie Bi 7 
i Ree mee BiB 
EDS 5 erie 001266 
& ier 

MAINDEC-11-DCQKA-C 

DC@KAC. SRC 
6093 
Hf Bee 
pis 0024, 
Ha ee 
615 
£5 Re 
i 


Le 










BIT 
eet 
TIMES, ICNT 
BGT IT 
Isr ERCNT 
Q ICINT 
BIT #SW13, J#SWR 
fyPe | MERE 
ERG 
MOV ERCNT. TTY 
JSR Pc. PRI 
TYPE ER7 
MOV {CNT, TTY 
TYPE 42 
TST deSWR 
BPL +4 
HALT 
CLR ERONT 
MOV a ICNT 
MOV (63, LAD 
RTI 
INC ICNT 
ST LAD 
oy PAD- tb) 
WY 
MACYL1 27(732) 
BIT #SW10, J8SWR 
BOVE ise, TYPE 
TYPE : 
TST ERCNT 
BEQ .+6 
IMP 
MOV (6), HLTAD 
INC 
BITB #1, 0841 
Q 1 
CMP #10, ERRORS 
BNE 1§ 
MOV a#42,RO 
ere ate 
(0) 
ier #5113, SWR 
BNE NOH 
MOV (6), -(6) 
aif heat 
DIVP 


;KILL ITERATIONS 


+ DONE? 
“BRANCH IF NOT 
ANY ERRORS? 


s INHIBIT TYPEOUTS? 
sTYPE_ERCNT IN OCTAL 
tAND SUPRESS LEADING ZERO’S 
sTYPE ICNT IN OCTAL 


3-ASCIZ <15><12> 
s;HALT ON ERROR ¥*SW1S% 


iSAVE LOOP ADORESS 
; RETURN 


;FIRST ONE? 
’ 
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;BELL ON ERROR? 
;TYPE A BELL 
;CHECK FOR FIRST ERROR 


;SAVE_ADDRESS OF HLT 
COUNT THE NUMBER OF ERRORS 


;AUTO RUN? 
NO! 


t7ERO IT 
RE GR TO HONTTOR 
“SKIP TYPEOUT IF SET 


NSTRUCTION ON STACK 


;PUT ADDRESS OF 
;GET 3 ION 
;TEST FOR MULTIPLY OR DIVIDE 
;GOTO DIVIDE PRINT IF ON A 1 


FEE = SOBRE ORE 


poe 


MAINDEC-1 
DC@KAC. 


o 
£ 
N 


BERR Ia Sana ae ohio SUB UR EO Reo sa se 


-DC@KA-C 


Bias Salt 





oo000e 000000 


000004 003101 
14 
CBS ioe 
7 OOle 
ooh Oise 
703 ooiOr 
16 001062 
03 001204 
003122 
167 7G 
44 1170 
ERROR INES 





SECO: 


- DIV RANDOM EXERCISER 


DIVP: 


001026 


ooocu0 DIV2: 


SECI: 


PSOFT: 


Senet 
3 
a2 


On Hom 
FEA: 

= 

-" 

2 


ety 


; TEST FOR WHICH MULTIPLY 


; TYPE LONUM IN OCT 
; TYPE LEADING ZERO’ 


sTYPE HINUM IN_OCTAL 
:TYPE LEADING ZERO’S 
;TYPE HINUM IN OCTAL 
{TYPE LEADING ZERO’S 


; TYPE LONUM IN OCTAL 
; TYPE LEADING ZERO’S 
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38S 
ee 


or 
#3 3 


ae 
x 


2: 
a 


PaO R y 


am 


3 


TRO 
wu 
a 
Lond 
= 
w 


ge 


TE AREA+2 IN OCTAL 
;TYPE LEADING ZERO’S 
;TYPE A 40 


;TYPE AREA IN OCTAL 
; TYPE LEADING ZERO’S 


;TYPE AREAS IN OCTAL 
:TYPE LEADING ZERO’S 


;TEST FOR WHICH DIVIDE 
;TYPE LONUM IN OCTAL 
;TYPE LEADING ZERO’S 
;TYPE HINUM IN OCTAL 
;TYPE LEADING ZERO’S 


;TYPE .ACX IN OCTAL 
;TYPE LEADING ZERO’S 


;TYPE .MQX IN OCTAL 
;TYPE LEADING ZERO’S 


;TYPE SR1_ IN OCTAL 
;AND SUPRESS LEADING ZERO’S 


TYPE LEADING ZERO"s 
TYPE LEADING ZERO"S 


;TYPE_TEMP IN OCTAL 
3 AND ING ZERO’S 
;REST' 

OR HL 


; CHECK T 





690 O030s2 000002 RTI 


B0e 
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; 4700: 
OS3111 PRiD: ~ASCIZ 
ERIM:  .ASCIZ 
% : -ASC 
iis 043117 Freh ‘lt 
mR: Ense: aac? 
: Ere: | AScl 
ER6: -ASCIZ 
ER7: 


PSSey Opie tor fates 
ei debe Gans i bet 


El: -ASCIZ 
E2: -ASCIZ 
E3: -RSCIZ 
EY: -ASCIZ 
ES: -ASCIZ 
Eb: 





(15)¢32)<129"DIV ERROR: ” 


(15)<12>¢12>"MUL ERROR: “ 
oo x 68 


“ys; 
€15)«12>< 12>"SOF TWARE” 

(15> < 12> "HARDWARE™ 

cy PS=" ; , 
¢15)¢12)<12>"ERRORS OCCURRED “ 


“ TIMES OUT OF ™ 


«15><12> 
ded >"SOFTWARE DIVIDE DOESN’T MATCH REAL ANSWER. * 


"LOC = * 
(15)><12>".AC = * 
“ m=” 

" _LONUM = * 


. HINUN =“ 


¢15><12><12> 















730 003% 
~~ 





Ne 18: 
+7 BS . 
2 = 
aE 
- 
+? 
> 
+ “ 
+ 
+ 
Ss 
<~gr 
ox 
PPPs 
> Sl 
> 
> = 
cae: 
rs Be 
++oe 
res ISH 
Te 5 BAD: 
e 
774 OO550 Lit 
Aso P ;3 
Soh ate 
++ +4 110% 
~7 — > > 
LSA Jal: 
ee 
> 
tk; 101 
Tee fall: 
tree 
*“*+*y-> y rr 
- ++ 
wit 
feue 
a + 
: fp BEE 1670; 
> > > = y 
_ 


PPE 


Bg sysuS us Iys3 | FSESSSSRBRERSRE 






EON 


. 
Be SS SO GSS SO SS SE SO SESS SE SESE St SESS Of SESE 
Bo D> “OH the spe 





TET USAR AR ny eo 
ROTATE. NTO Re 
SHIFT LOOP 






MAKE X 129 
MAKE X 129 


SNS TANT 


IGHEST CONSTART 
BB utth HIGHEST DIGIT 
ATE CARRY 


STYPE LEADING ZERO"S 
STYPE LEADING SERO"S 
Ep 


TYPE LEADING ZERO” 








d SORSNESKORSESTSSnaessres 
NOU £ WITH 





aE ain ter © woo 


000001 000130 PRINTR: 


tye cous 
004124 











DOe MQ ( LONUM) 
iRe i Ate HIND 
yb 1V HINUM) 

TTY, -(6) 


siti ten 7° = 7 
Eran oop, gee 


is ;GET THE NEXT CHARACTER 


33(6), =(6) arr rer iie obele 
gr 1 315 I 





ABSSBRISE BEGBBAES Cmom? 


»TTY FADD 2 TO THE ADDRESS 
aL Try : oe TO AN BYTE 
TTY, 2(6) sREST 
(6)4,T sREST 
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81, A4S ;SET ZERO FILL SWITCH 


SUP ING ZERO’S 


PO Met br FIRST ASCII CHAR. 
i 

*ROTATE B 

CHARACTER 

: 

; 


ATE BIT INTO C 
PACK yr INTO C 
;ROTATE BIT INTO C 
;PACK IT 


;CHECK FILL SWITCH 
;MAKE INTO ASCII CHAR 


1 

# ;REPEAT 
»R4 
(4) 

(4 


tf RSE 


-BLKH 4 
0 





aciuaaateans 
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es hae 





4 
wn 
“ 


;SET UP STEP COUNTER 


1 177780 ~DIVL: 
1777 
177744 


177734 
17772 


177711 


1FF608 


177666 


5767 177654 





MULTIPLY AN 





— 


1Ffea? 


; INITIALIZE Z INDICATORS 
;CHECK REMAINDER SIGN 


;CHECK DIVISOR SIGN 


371 IF DIFFERENT, O IF SAME 


AC AND MQ ONCE LEFT STEP2 


SPB SQAE BURA Rede BAoRAP eSB P Sass 


177760 177629 


177617 
177610 


177600 


177566 
177630 


;CHECK FOR FIRST TIME THROUGH 
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"oivibe Rourines 
STEP6: 


;IF C AND DIVIDEND ARE 
DIFFERENT, AN OVERFLOW 


' srepio; Se STEP pIF IME SHIFT THE QUOTIENT ONCE | 











8 
se 

mn 
a 


p= ee 
at) 


Z 
gecesi 


pas 


on 


7 


Q 


EE 


is 
oes5Y 


ur 
cee 





Miah EEE RS Ree inc bin cic pit 
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DOuKAE SAE MULTIPLY ARO DIVIDE ROUTINES 


SZe8s3 


Dos 






CRLPLESARRGS 
RRA 
4 ttt 


= et pnd he’ | oo 
rv Ri ur i 
reer arveryer 


& BB: 


a 
=e Q 
© on 
3 —_ 


-~ 


ig" 


> ¥ 
rong 


BADNAESS BERLRA APAeBASEAONAE 






; FILLING WITH “1” 






;SET 2=1 fe DIViSOR HAVE 
; THE DIVISOR HAVE THE 
; SAME SIGN 


;ADD Z TO QUOTIENT 
; SHIFT TI ONCE 
3 LING HET “0” 


;SUBTRACT DIVISOR FROM REMAINDER 
;ADD DIVISOR TO REMAINDER 








: = 0S2e767 000010 177322 
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a 
Szkee 
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= 
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; MULTIPLY AND DIVIDE ROUTINES 


fi 
oaq OO4644 
y 177770 
J. 177264 
177762 
x © 
1000 ii 
i” 3 177750 
1 ¥ 12 
1 a 1 
1 -@ 1 177726 
i W 1 
: ast eh c 
1 x 
101 if 
1 i 
101 i 
1014 
10ie 
10 
Be & prose 
1020 


ore) booed 177636 





Oa 0 bo pe ee RaRARS 
= ; +4 
ze is 


; MULTIPLY SUBROUTINE 
CONT: 
CHEK: :WORD 0 
MUL 1: ;CLEAR TEP 
GR ONE 2 STEP1 
CF ome 
T ‘ ‘ 
fib 
COM «CHEK 
er. iis, 
ON 
MOV _—s- 8-16. . CONT INITIALIZE COUNT 
cre #100600, .ma 
TST 
e in 
MOV ; 
a ae 
Bos 
"ac 
ROR  :MO 
BR ONE? 
on ae a 
S ; 
BPL COST 
MOV HO AC 
NE "AC 
CL 
MQ 
ROR AS 
STEP2: Ore 
i #1, ONE 
+1 ;COMP ONE+1 IF 2=1 
Sn 
Ee + -COMP ONE+1 IF R1 IS ODD 
ies Hee cou Onoen BIT is THE sare 
Q tS Z, GO TOS 
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|__1037_o0s032 032701 000001 _ 


STEP3: BIT #1,."Q 





OO FO = 0 = 0 = 0 0 = 
RRRBAReB SES 





RERERRBRIES 


ee ee tam epee 


1 
- DIV 
SSS 








a4 BERLSES 


St 


" 
w 


aoe Se Sa Siac tat alta 
gael 


se 
oo 





433 
847% 
404 





ashe 
zB BO 


~™ 


SaasseianaseSgeeg? Zs 


8 


= 


-END 
DOuKAE-SAL "CROSS REFERENCE TABLE == USER SYMBOLS 







;ADD MULTIPLICAND IF MQ IS EVEN 
;SUBTRACT MULTIPLICAND IF MG IS ODD 





;G0 TO STEP2 IF NOT 16TH PASS 
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480 SOi# S02  SO6# 517 518 519 647 





oo 
S22 


= 


eic 
+ 
1 « 
-7 
t 





fad Ca! 





2 
AtAt 


"aay 


E2 

E3 003346 
EY 
ae 
GO 001060 
HINUN 003650 
HLT = 104400 
HLTAD 003054 
ICINT 





wo 
Tal 
aut 


— 


PITTS BShS 


# 
‘ 


SORE 
BE BSSSSs Ret 


qa sa 


ages 
- 
N 
S 


e 3h 


io 
og 


6468 
6598 
550 


a D> Bs Bee fa be 
33 — 
se ss 


Sete ge césae3s 


rest 


S18 
S968 


102 


7998 

489 520 S648 

S61 

392 397 416 438 488 S02 S04 636 
786 7348 

427 444 447 450 468 471 474 493 
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ICNT 1000 





577 


bDe & 


1026 


581 §91 s96# 602% 


ga8u ae 7 mm 


429 4328 0 8=— 451 4548 86476 4798 = ss S14 5178 


S348 
1029: 1031# = =1034* 1035 1044s 


é 


# 


1b 
ae 


Suio = 
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591# 
678% 


10288 


633% 
681% 


636% 
684% 


Sb4# 


640 
774% 


907% 


987% 


534 


634# 
682% 


472 
1069% 


607 


570% 


969 


486% 
1073# 


624 


440% 464s 
641% 644% 
770% 775% 
672 679 
758% 760% 
971 1002 
745% 750% 
948 

497 528 
684 

661% 66S5# 
8le 813% 


1006 


814 


816 8eS* 626% 827 KR2 639% 64l# 843% 


TYPE = 000004 3308 5S3 597 590 593 610 630 635 642 646 
670 673 676 677 680 683 773 776 779 782 
# 2 004136 eH eeu . gest 859 891% 9s 944% 947% 950% 
SENCAD 002124 357 5578 
= 905176 3128 3138 3188 3238 3258 3278 3518 358 382 385 
423 426 4 446 ce 467 470 473 492 495 
529 S47 593 S948 $95 612 £99 7388 818 831 
Bb) 8 879 884 887 890 896 900 908 911 916 
949 gS a58 961 968 978 981 1000 1003 
1040 1053 105 1068 1072 
ac =~000000 3428 370 375 384 389% 394 402 415% 416% 419 
457% 463% 4ES 482% “Eos 49] SO4* 5093 518% 519% 
743% 747% 756% 762% 764 769% 777 878 883 BIg 
* 919 941 34S 954 969% 971% 974 97S# 977 980 
1011 1014%% 10218 022% 1025% 1039% 1041% 1042% 1048 10S2 
1061%  1062% 1065 
-ACX 172 sige 419 4oSe 44e 4S9# 466 4M 49 509% S22 
4 31 360% 575% 
4 002414 6118 
OT 003710 316 8les 
# -MQ =~000001 3438 366% 369 376 361 388% 395 399 422 yas 
+ aod 503% 510 517% 525 681 740 744% 74k 753% 
763% 765 768% 780 893% 922% 929 932 963% 965# 
# ite 100% 1013 1015* 1019 1021 1024# 1026% 1032 1037 
MQX 005174 411% Go 434# 44S 460% 463 4eS* 494 510% 525 
-SR1 1955 i75e 
> 1 4 ah 
a i i 
“TRT 003640 14 a 
-TYPE 003660 cSe# 553 609% 610 649% 650 798% 


MAT Cah COIR ct her ply Brno EXERC eri 27(732) @1-JUN-76 13:39 PAGE 30 


643 647 6S1 656 661 664 668 671 
476 514 


639 
451 
4 
ey gah 77M 
649 


R 
REeuean 
525 6a 


B= be & Ba 


3 
= 
| ena 





650 


951 


678 


681 


385 


1060 
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DCQKAC. SRC CROSS REFERENCE TABLE -- PE TS 
ADC 73 02Oi«i«7SS~—i(‘wST?]:OCOC«O7SBOOCOMHOCt*«C76SD 
ap geo Me3 SH SB 752754 
ASL 
ASR 1042 
BCS 908 
BEQ 380 382 385 #398 «#4400 403 
use 49S —(iBCi‘GRQD:;:*C*CSMH]C*«é*CS QQ; 
6 655 615 84% 849 8% 
1064 
BGT 582 
Bt eas BSB gg ce7stt9 
fies séBe 
BIT os % so Ss ~<5S7S 579 
BITB ble 1029 
BNI $342«O«S10si«‘ietiti‘iSC(it«éSCSL 
BNE SSp 7 7% 
ge Ct«SsC(‘«é‘éOCCCC(‘«‘é 
BPL 81 e84 «BB? 
ies kee 
BR 45490 «= S2ti‘iwiSCtC«iSSt*«SV 
1016 1027 1040 1057 
cLe a A Ot (x 
CLR 35 40S S53 SSI 
S38 1013104 
CLRB 636 8s HY 
CMP 357 364 
687 «BB 
CMPB 425 448 472 
COM 926 ‘eh 
COMB 
at é uepté*S&J 
HALT r so 
INC B02 «biSSts«éBD 
INCB 7 = SI 
10T 
IMP sug «Sb 
JSR %S5 38 374 
SS7 ««589~Cfs«S932 
67s «SC (i«GStéWGD 
MoV 34 35 2359 
377 4«387—St—s«388 
435 436 438 


1061 
7893 761 
423 426 
555 $78 
916 342 
607 624 

1068 

19 
se 1007 
925 S46 
819 831 


762 


B22 


eo é 


631 





82S 


654 


901 


659 


971 


470 
617 
1036 


1032 










ase & 88 





765 767 ? 76 774 777 780 783 786 812 813 821 
834 ge 858 55 8 938 974 975 32 1005 =s«lO—«<“‘<é«‘éi 

MOVE S64 603 649 816 830 833 SS 923 

NEG a48 \it 1022 1054's 1060 ©=-: 1062 

NOP 418 441 Sse 659 O78 

ROL oa 749 839 841 843 893 894 922 965 
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DCOQKAC. SRC CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 

ROLB v0 84 844 898 goes 1044 

ROR 1019 461015 1025 @6©1026 =._:1043 

RORB 907 

RTI 600 606 690 829 

RTS S69 571 720 789 859 874 935 988 

R oul 43 

as 
627 99 1041 

TRAP 340 

TST 379 «381 ~20Cf'sism—i‘<iétztst~SCSBCOC*S7?77—~—~«CSB S34 603 611 686 871 878 #883 
a0 19 ged e759 akg? 77 980 83S 
1 1019 1048 1050 61052 «61058 )3=s«i03.s—«‘iO~—_1071 

TSTB 814 817 848 889 895 309 912 948 951 960 967 1035 

.ASCII 701 717 

.ASCIZ 594 693 699 700 703 704 706 707 709 713 71é 725 
oC oni 

-BLKW 851 

-ENABL 29% 

“END 1080 

EVEN 534 738 

LIST 296 313 351 406 499 429 432 451 4S4 476 479 S14 517 532 
534 607 733 830 863 

.MACR 351 

“MACRO 8-351 

MIST 2% 21 351 406 409 429 432 451 4SY 476 479 S14 517 532 
594 7393 830 863 

REM 3 

“Sert 236 351 406 429 4S] 476 Si4 532 575 607 739 830 863 

WORD 665 866 867 868 991 992 993 


ERRORS "Ue 0 

tem: GLOBALS GENERATED: 0 
/PAGNUM/CRF =DCQKAC. SRC 

A a cob 

IN-TIME patos 136/12=10.8 


ie eee 





cu 
Oo 
= 


ee ee 
CORE USED: 7K (13 PAGES) 
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D0; DOUDUOUE vor oO UT val Mil Liecceeecesag3 
tr i 1 1 


111111 


+ wa eae FOF haces tr eevere 

“verereret treeretry ve aOR eT T lili 
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copetens Peerceecce’ 3 SSS bbbbbbb66! BBE! Abananaat itt 





